home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / dvitovdu32 / src / pascal / files.h < prev    next >
Text File  |  1991-11-10  |  795b  |  19 lines
  1. (* Random file access; used in DVIReader and FontReader *)
  2.  
  3. CONST
  4.    bufflen  = 1024;          (* size of buffer for holding DVI/PK bytes *)
  5.    bufflenm = bufflen - 1;
  6.  
  7.    O_RDONLY = 0;             (* SYSDEP: read-only flag for open;
  8.                                 value came from /usr/include/sys/fcntl.h
  9.                              *)
  10.  
  11. TYPE
  12.    buffer  = PACKED ARRAY [0..bufflenm] OF CHAR;
  13.  
  14. FUNCTION open (VAR path : string; flags, mode : integer) : integer;   EXTERNAL;
  15. FUNCTION lseek(f, offset, whence : integer) : integer;                EXTERNAL;
  16. FUNCTION read (f : integer; VAR b : buffer; n : integer) : integer;   EXTERNAL;
  17. FUNCTION write(f : integer; VAR b : buffer; n : integer) : integer;   EXTERNAL;
  18. FUNCTION close(f : integer) : integer;                                EXTERNAL;
  19.